home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
AmigActive 10
/
AACD 10.iso
/
AACD
/
Programming
/
AmigaTalk
/
TestFiles
/
TestGadget
< prev
next >
Wrap
Text File
|
2000-05-07
|
944b
|
49 lines
scr <- Screen new: 'TestScreen'
scr setScreenModeID: 16r40D20001
scr open
win <- Window new: 'TestWindow'
win setFlags: 4111
win setIDCMPFlags: 320
win openOnScreen: 'TestScreen'
crs <- Colors new: 'TestWindow'
crs loadColors: 16 from: 'Amigatalk:AmigaTalk.colors'
btxt <- IText new: 'BGadgTxt'
btxt setIText: 'Test Gadget:'
btxt setFrontPen: 3
btxt setBackPen: 2
btxt setLeftEdge: -125
btxt setTopEdge: 2
bgad <- BoolGadget new: 'BooleanGadget'
bgad registerTo: 'TestWindow'
bgad setITextName: 'BGadgTxt'
bgad setStartPoint: 300 @ 80
win addGadget: 'BooleanGadget' type: 0
win refreshGadgets
itxt <- IText new: 'TestIText'
itxt setIText: 'Testing IText functionality!'
itxt setFrontPen: 5
itxt setBackPen: 2
itxt setLeftEdge: 100
itxt setTopEdge: 120
itxt registerTo: 'TestWindow'
win printIText: 'TestIText' at: 30 @ 20
win handleIntuition
itxt remove
btxt remove
bgad remove
win close
scr close